do libp0002

*- eof: sccp7100.prg